home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
program
/
pasprog.EXE
/
TABELA.TXT
< prev
next >
Wrap
Text File
|
1980-01-10
|
2KB
|
28 lines
┌──────────────────────────────────────────────────────────────────────────┐
│┌────────────────────────────────────────────────────────────────────────┐│
││ ││
││ TABELA ││
││ ││
│└────────────────────────────────────────────────────────────────────────┘│
│ PS 31 · ₧ubat'96 Murat Dicle │
└──────────────────────────────────────────────────────────────────────────┘
Bu program çok basit omasìna raºmen sizlere PASCAL ortamìnda bir TST
programìnìn nasìl yapìlacaºìnì göstermektedir. Bu program EXE hale
dönüƒtürülüp DOS komut satìrìnda çalìƒtìrìldìºìnda ekranìn saº üst köƒesinde
"Merhaba" yazìsìnìn hiç gitmediºini göreceksiniz. CLS komutunu kullansanìz
dahi yazì ekrandan gitmez.
Bu programda bir HELLO procedure'ü yaptìk. Bu procedure saat interrupt'ìna
baºlandìºìndan saniyede 18 defa bu procedure aktif hale gelecektir.
Dolayìsìyle yazì hep ekranda kalacaktìr. CLS komutunu kullansanìz bile
"Merhaba" yazìsì ekrandan kalkmayacaktìr.
Fakat "HELLO" procedure'üne her girildiºinde ekrana "Merhaba" yazìlmadan önce
ekranda yanìp sönen kursörün pozisyonu X ve Y deºiƒkenlerine saklanmaktadìr.
Ardìndan "Merhaba" yazìsì ekranìn saº üst köƒesine yazìlmakta ve daha sonra
kursör X ve Y koordinatlarìna konumlandìrìlmaktadìr.
HELLO procedure'ün baƒìnda ve sonunda {$F+} ve {$F-} ibareleri vardìr.
Bunlarìn anlamì uzaktan çaºìrma iƒleminin bu procedure üzerinde
uygulanabileceºini göstermektedir.